home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d7
/
jmd4tlx.arc
/
JDOWN.SLT
< prev
next >
Wrap
Text File
|
1989-03-30
|
2KB
|
66 lines
///////////////////////////////////////////////////////////////////////////////
// This TELIX 3.11 script implements the JMODEM DOWNLOAD function.
//
// It first simulates the TELIX window for obtaining file names.
// This is necessary because TELIX only permits 1 filename to be entered.
//
// It then calls JXFER.SLC with the parameter indicating DOWNLOAD.
//
// NOTE: The file list may contain multiple filespecs, but NO WILDCARDS!
//
// Written by: Michael K. Bozovich
// Date: 3-19-89
///////////////////////////////////////////////////////////////////////////////
/////// Integer Variable Declarations.
int old_x; // Place holder for cursor x-position.
int old_y; // Place holder for cursor x-position.
int old_screen; // Pointer to old screen area.
main()
{
/////// Save the portion of the screen to be modified.
old_screen = vsavearea(06, 10, 74, 16);
/////// Save the current cursor position.
old_x = getx();
old_y = gety();
/////// Draw the file list prompt box similar to that of TELIX.
box(06, 10, 74, 16, 3, 0, 112);
pstraxy("Enter file(s) to download to, <CR or ESC> to abort.", 8, 13, 112);
pstraxy("^p ", 8, 14, 112);
/////// Get the input from the user.
getsxy(_ext_filespec, 64, getx(), gety(), 112);
/////// Restore the screen portion that was changed.
vrstrarea(old_screen);
/////// Move the cursor back to where it was before.
gotoxy(old_x, old_y);
/////// If the user didn't use wildcards, call "JXFER",
/////// otherwise, print a diagnostic and exit back to terminal.
if(strpos(_ext_filespec, "*", 0) == -1 && strpos(_ext_filespec, "?", 0) == -1)
call("jxfer", "R");
else
{
prints("^gYou may not specify wild cards when downloading with Jmodem!");
return();
}
}
// eof jdown.slt